home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1995 August / PC Plus Super CD (Issue 106) (PCP106) (August 1995).iso / bioforge / script / ai_luthr.scp < prev    next >
Encoding:
Text File  |  1995-01-18  |  812 b   |  95 lines
  1. { LUTHOR_AI
  2. P ~ÇÇ 
  3. :LOOP
  4.  
  5. I .ÇéÇâ != $üö THEN
  6. {
  7. â 
  8. J #Çü 
  9. }
  10. ~ÇÇ = @Ç¥ MONSTER_MOVE 15
  11. I ~ÇÇ > 0 THEN
  12. {
  13. N ~ÇÇ 
  14. {
  15. U 1
  16. I @Çô "atk_m1" != $üâ THEN
  17. M ATK_M1 CONTINUE
  18. X ÇÇ 
  19. U 2
  20. I @Çô "atk_m2" != $üâ THEN
  21. M ATK_M2 CONTINUE
  22. X ÇÇ 
  23. U 3
  24. I @Çô "atk_m3" != $üâ THEN
  25. M ATK_M3 CONTINUE
  26. X ÇÇ 
  27. U 4
  28. U 6
  29. ┴ 
  30. X ÇÇ 
  31. U 7
  32. I @Çô "atk_m7" != $üâ THEN
  33. M ATK_M7 CONTINUE
  34. X ÇÇ 
  35. U 8
  36. I @Çô "atk_m8" != $üâ THEN
  37. M ATK_M8 CONTINUE
  38. X ÇÇ 
  39. U 9
  40. I @Çô "atk_m9" != $üâ THEN
  41. M ATK_M9 CONTINUE
  42. X ÇÇ 
  43. U 10
  44. I @Çô "atk_m10" != $üâ THEN
  45. M ATK_M10 CONTINUE
  46. X ÇÇ 
  47. }
  48. }
  49. E 
  50. {
  51.  @Çì LUTHOR_ATTACK
  52. }
  53. â 
  54. J #Çü 
  55. }
  56. { LUTHOR_ATTACK
  57.  
  58. N @Çà 0 9 
  59. {
  60. U 0
  61. M ATK_H4
  62. X Çü 
  63. U 1
  64. M ATK_H6
  65. X Çü 
  66. U 2
  67. M ATK_H7
  68. X Çü 
  69. U 3
  70. M ATK_H8
  71. X Çü 
  72. U 4
  73. M ATK_H9
  74. X Çü 
  75. U 5
  76. M ATK_F1
  77. X Çü 
  78. U 6
  79. M ATK_F3
  80. X Çü 
  81. U 7
  82. M ATK_F4
  83. X Çü 
  84. U 8
  85. M ATK_F6
  86. X Çü 
  87. U 9
  88. M ATK_F7
  89. X Çü 
  90. }
  91. }
  92.  
  93.  
  94. //$ 26 - version number
  95.